home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 September (IDG) / Sep99.iso / Shareware World / Comms & Internet / LinkConverter 1.1.2 / Dialog Director v0.7 / Res Utils Examples / Get Res.as < prev    next >
Encoding:
Text File  |  1996-12-02  |  271 b   |  13 lines  |  [TEXT/ToyS]
  1. on run
  2.     set f to choose file of type "rsrc"
  3.     set rf to res open f --without write permission
  4.     try
  5.         set x to res get rf id 1000 type "cBtn"
  6.         set y to res get rf id 2000 type "reco"
  7.     on error number n
  8.         res close rf
  9.         error number n
  10.     end try
  11.     res close rf
  12.     [x, y]
  13. end run